home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / online / inetutils-1.4-amitcp / steuerung < prev    next >
AmigaDOS Script File  |  1978-01-08  |  2KB  |  82 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "install"
  14.     set vinstall 1
  15. endif
  16. set binfo        1
  17. set bcopy        1
  18. set binstall     1
  19.  
  20.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  21.     set nummer 0
  22.     if $binfo EQ 1
  23.          echo >>t:tmpsteuerung " Info" NOLINE
  24.          set nummer `eval $nummer + 1`
  25.          set ninfo $nummer
  26.     endif
  27.     if $bcopy EQ 1
  28.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  29.          set nummer `eval $nummer + 1`
  30.          set ncopy $nummer
  31.     endif
  32.     if $binstall EQ 1
  33.          echo >>t:tmpsteuerung " Install-Info" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ninstall $nummer
  36.     endif
  37.     if "[param]" EQ ""
  38.         echo >>t:tmpsteuerung " Ende" NOLINE
  39.         execute >nil: t:tmpsteuerung
  40.         delete >nil: t:tmpsteuerung
  41.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  42.         if $reqerg[$$] EQ 0
  43.             skip Ende
  44.         endif
  45.     endif
  46.     if $reqerg[$$] EQ $ninfo
  47.         set vinfo 1
  48.     endif
  49.     if $reqerg[$$] EQ $ncopy
  50.         set vcopy 1
  51.     endif
  52.     if $reqerg[$$] EQ $ninstall
  53.         set vinstall 1
  54.     endif
  55. endif
  56.  
  57. if $vinfo EQ 1
  58. ;>>>>>>>> Hier Infotext eintragen
  59.     :c/Metatool :Online/INetUtils-1.4-AmiTCP/ReadMe-INetUtils FT=TEXT
  60. endif
  61. if $vcopy EQ 1
  62.     execute :c/Verzeichniskopieren ":Online/INetUtils-1.4-AmiTCP/" "INetUtils-1.4-AmiTCP" 686080
  63. endif
  64. if $vinstall EQ 1
  65.     :c/Metatool :Online/INetUtils-1.4-AmiTCP/Install FT=TEXT
  66. endif
  67.  
  68. unset binfo
  69. unset vinfo
  70. unset ninfo
  71. unset binstall
  72. unset vinstall
  73. unset ninstall
  74. unset bcopy
  75. unset vcopy
  76. unset ncopy
  77. if "[param]" EQ ""
  78.     execute Steuerung
  79. endif
  80. LAB Ende
  81. unsetenv reqerg[$$]
  82.